home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00164_save test to new file.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  693 b   |  28 lines
  1. on mouseUp
  2.   global gType
  3.   set sP to the clickOn
  4.   highlight(sP)
  5.   updateStage()
  6.   set saveFile to FileIO(mnew, "?write", "YourName.txt")
  7.   if objectp(saveFile) then
  8.     if gType = #MAC then
  9.       set newline to RETURN
  10.     else
  11.       set newline to RETURN & numToChar(10)
  12.     end if
  13.     saveFile(mWriteString, "The Rosetta Stone" & newline & "Test List, Created " & the date & newline & newline)
  14.     set TestRecord to makeTestResults()
  15.     if value(saveFile(mWriteString, TestRecord)) < 0 then
  16.       alert(field "Can't Write Test")
  17.       unhighlight(sP)
  18.       go("endTest")
  19.     else
  20.       saveFile(mdispose)
  21.       goMenu()
  22.     end if
  23.   else
  24.     unhighlight(sP)
  25.     go("endTest")
  26.   end if
  27. end
  28.